home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART IBM.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  54 lines
  1. 100  GOTO 170
  2. 110  READ X,Y: PLOT X,Y: GOTO 110
  3. 120  FOR X = Z TO E: FOR Y = A TO B  STEP C: PLOT X,Y: NEXT Y,X: GOTO 230
  4. 130  REM  IBM LOGO IN LO-RES
  5. 140  REM  07/01/80
  6. 150  REM REVISED 11/08/80
  7. 160  REM  BRUCE W. CHRISTOPHER
  8. 170  TEXT : HOME : GR 
  9. 180  COLOR= 6
  10. 190 X = 0:Y = 0
  11. 200 A = 11:B = 35:C = 2
  12. 210 Z = 0:E = 39
  13. 220  GOTO 120
  14. 230  COLOR= 0
  15. 240  ONERR  GOTO 260
  16. 250  GOTO 110
  17. 260  POKE 216,0
  18. 270  IF  PEEK( -16384) <128  THEN 270
  19. 280  END 
  20. 290  DATA 0,17,0,19,0,21,0,23,0,25
  21. 300  DATA 0,27,0,29,1,17,1,19,1,21
  22. 310  DATA 1,23,1,25,1,27,1,29,5,17
  23. 320  DATA 5,19,5,21,5,23,5,25,5,27
  24. 330  DATA 5,29,6,17,6,19,6,21,6,23
  25. 340  DATA 6,25,6,27,6,29,7,11,7,13
  26. 350  DATA 7,15,7,17,7,19,7,21,7,23
  27. 360  DATA 7,25,7,27,7,29,7,31,7,33
  28. 370  DATA 7,35,8,17,8,19,8,21,8,23
  29. 380  DATA 8,25,8,27,8,29,9,17,9,19
  30. 390  DATA 9,21,9,23,9,25,9,27,9,29
  31. 400  DATA 14,17,14,19,14,27,14,29,15,17
  32. 410  DATA 15,19,15,27,15,29,16,17,16,19
  33. 420  DATA 16,27,16,29,18,11,18,35,19,11
  34. 430  DATA 19,23,19,35,20,11,20,13,20,21
  35. 440  DATA 20,23,20,25,20,33,20,35,21,11
  36. 450  DATA 21,13,21,15,21,17,21,19,21,21
  37. 460  DATA 21,23,21,25,21,27,21,29,21,31
  38. 470  DATA 21,33,21,35,22,17,22,19,22,21
  39. 480  DATA 22,23,22,25,22,27,22,29,23,17
  40. 490  DATA 23,19,23,21,23,23,23,25,23,27
  41. 500  DATA 23,29,27,23,27,25,27,27,27,29
  42. 510  DATA 27,31,27,33,27,35,28,11,28,13
  43. 520  DATA 28,27,28,29,28,31,28,33,28,35
  44. 530  DATA 29,11,29,13,29,15,29,17,29,31
  45. 540  DATA 29,33,29,35,30,11,30,13,30,15
  46. 550  DATA 30,17,30,19,31,11,31,13,31,15
  47. 560  DATA 31,17,31,19,32,11,32,13,32,15
  48. 570  DATA 32,17,32,31,32,33,32,35,33,11
  49. 580  DATA 33,13,33,27,33,29,33,31,33,33
  50. 590  DATA 33,35,34,23,34,25,34,27,34,29
  51. 600  DATA 34,31,34,33,34,35,38,17,38,19
  52. 610  DATA 38,21,38,23,38,25,38,27,38,29
  53. 620  DATA 39,17,39,19,39,21,39,23,39,25
  54. 630  DATA 39,27,39,29